TableSetColUnit Subroutine

public subroutine TableSetColUnit(tab, col, unit)

set unit of a specified column Arguments: tab returned table col column to be changed unit unit string

Arguments

Type IntentOptional Attributes Name
type(Table), intent(inout) :: tab
integer(kind=short), intent(in) :: col
character(len=*), intent(in) :: unit

Source Code

SUBROUTINE TableSetColUnit &
  ( tab, col, unit)

IMPLICIT NONE

! Arguments with intent(in):
INTEGER (KIND = short), INTENT (IN) :: col
CHARACTER (LEN = *), INTENT (IN)    :: unit

! Arguments with intent (inout):
TYPE (Table), INTENT (INOUT) :: tab


!------------end of declaration------------------------------------------------

tab % col (col) % unit = TRIM (unit)

RETURN 
  END SUBROUTINE TableSetColUnit